home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DOXMODD2.MOD < prev    next >
Encoding:
Text File  |  1987-09-10  |  1.7 KB  |  64 lines
  1.  
  2. BEGIN (* Do_Xmodem_Download *)
  3.                                    (* Reset comm parms to 8,n,1 *)
  4.  
  5.    Xmodem_Bits_Save   := Data_Bits;
  6.    Xmodem_Parity_Save := Parity;
  7.  
  8.    IF ( Data_Bits <>  8  ) OR
  9.       ( Parity    <> 'N' ) THEN
  10.          BEGIN
  11.             Parity    := 'N';
  12.             Data_Bits := 8;
  13.             Async_Reset_Port( Comm_Port, Baud_Rate, 'N', 8, 1 );
  14.          END;
  15.  
  16.                                    (* Reset status line *)
  17.    IF Do_Status_Line THEN
  18.       BEGIN
  19.          Set_Status_Line_Name( Short_Terminal_Name );
  20.          Write_To_Status_Line( Status_Line_Name, 1 );
  21.       END;
  22.  
  23.                                    (* Perform transfer          *)
  24.    CASE Transfer_Protocol Of
  25.  
  26.       Xmodem_Chk:     Receive_Xmodem_File( FALSE );
  27.  
  28.       Modem7_CRC,
  29.       Telink:         Receive_Modem7_File( TRUE );
  30.  
  31.       Modem7_Chk:     Receive_Modem7_File( FALSE );
  32.  
  33.       SeaLink,
  34.       Ymodem_G,
  35.       Ymodem_Batch:   Receive_Ymodem_File;
  36.  
  37.       Xmodem_1K,
  38.       Xmodem_1KG,
  39.       WXmodem,
  40.       Xmodem_Crc:     Receive_Xmodem_File( TRUE );
  41.  
  42.       ELSE ;
  43.  
  44.    END  (* CASE *);
  45.                                    (* Reset comm parms back *)
  46.  
  47.    IF ( Xmodem_Bits_Save   <>  8  ) OR
  48.       ( Xmodem_Parity_Save <> 'N' ) THEN
  49.          BEGIN
  50.             Parity    := Xmodem_Parity_Save;
  51.             Data_Bits := Xmodem_Bits_Save;
  52.             Async_Reset_Port( Comm_Port, Baud_Rate, Parity,
  53.                               Data_Bits, Stop_Bits );
  54.          END;
  55.  
  56.                                    (* Reset status line *)
  57.    IF Do_Status_Line THEN
  58.       BEGIN
  59.          Set_Status_Line_Name( Short_Terminal_Name );
  60.          Write_To_Status_Line( Status_Line_Name, 1 );
  61.       END;
  62.  
  63. END   (* Do_Xmodem_DownLoad *);
  64.